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AUTHOR: W.H.BROWN, CREATION DATE: 14-APR-77 
d00¢ ; MODIFIED 3Y: 
0006 3 V03-003 PCG0003 Peter George 15-Feb-1983 
yOUL ; yodere fo aoe prructure level. 
VOOC 3 Handle rer ger R data structure. 
wt ; Rove DCLSCAVASCBIN to. CONVERT. 
000 : vO3-002 PcG0002 Peter George 14-Nov-1982 
4! i : Call DCLSTRIM fo process the numeric string 
4" x : before converting it to an Integer. 
000 : vo3~001 PCG0O01 Peter George 30-Sep-1982 
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PRCDEF ; 414 PROCESS WORK AREA 
WRKDEF 2D 4) oe WORK AREA 
SSCLITABDEF ; per ABLE STRUCTURE 
PTRDEF 3 DEFI SF's T PARSE ert iome 
RPWDOEF 3 RESULT PARSE WORK 3H INITIONS 
PLMDEF 3 PARAMETER inns DEF INITIONS 
get ee + CLI DEFINITI 

CLIMSGDEF : CLI MESSAGE DEFINITIONS 


i > OWN STORAGE: 
i , -PSECT DCLSZCODE BYTE, RD,NOWRT 


F 
] 
( 
F 
$ 
F 
$ 
F 
¢ 
A 
1 
r 
1 
4 
3 


vOL~000 eRe Ay PARSE Suenourines "Tne spteHe OO:1EEID YAM tasce Okt tree 


gare ay QUALIFIER DESCRIPTOR BLOCK 


3+ 
; potas DESCRIPTION: 


i CALLED TO Locate THE awe QUALIFIER 
nip Toh Ube Toe A set IFIC aunt IER. 
cMee K THAT QUALIFIER {3 A PARAMETER 
QUALIF IE is Tay TO O AN OUTPUT SPECIFIER. 


CALLING SEQUENCE: 


BSB/JSB DCLSGETQUALDESC ; GET IER 
BSB/JSB OCLSGETPARMQUAL ; GET PARAMETER 


INPUT PARAMETERS: 
R1 IS THE CODE TO IDENTIFY THE QUALIFIER 
IMPLICIT INPUTS: 


DESCRIPTOR 


r = ADDRESS OF UTILITY BIT A 
= ADDRESS OF REQUEST DESCRIPTOR 
= ADDRESS OF WORK ae tt 
= ADDRESS OF PASS 1 PARSE WORK AREA 


OUTPUT PARAMETERS: 

R2 IS THE ADDRESS OF THE QUALIFIER DESCRIPTOR BLOCK 
COMPLETION CODES: 

RO = SUCCESS/FAIL DEPENDING OF WHETHER THE DESCRIPTOR WAS FOUND 
SIDE EFFECTS: 

TOP LEVEL RETURN (RET) TAKEN IF SEARCH FAILS 
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-ENABL LSB 
DCL SGETPARMQU tt : GET A PAR TER QUALIFIER DESCRIPTOR 
DCLSGETQUALDESC:: : FIND A QUALIFIER DESCRIPTOR 

MOVL:  R1,RO : COPY QUALIFIER NUMBER 

BEQL : ZERO IS INVALID QUALIFIER NUMBER 

MOVL WRK_L_QUABLK(R11),R2 ; POINT AT START OF QUALIFIER BLOCKS 

BEQL : BR IF NONE 

BRB : START OF SEARCH 
10$:  -TSTL NT_L_NEXT(R2) : TEST OFFSET TO NEXT 

BEQL $s" : BR IF THIS IS LAST 

ADDLS ENT_L_NEXT(R2) ; FIND ADDRESS OF NEXT ENT BLOCK 

WRK"L “TAB “VEC (R11) -R2 : 

20$:  SOBGTR RO.T s + COUNT DOWN IF ER NUMBER 

INCL §6R : INDICATE DESCR TOR F 

RSB : BACK TO THE CALLER 
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. a i SETSTAT INVQUAL £ SETAERROR-INVALID QUALIFER WUMGE 
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sae RERULS, OoRBESuBnouTNEs ' '  Ng-SEpmt9R4 90:14:19 YAN/UME Macro vOK=09 Page og | 
51 64 7 PTR_L_DESCR(R4) ,R1 ; GET TYPE INTO R1 
05 $e a 40$: RSB 3 
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sePheSEcyDetenapaweoutanes °' TESSEECTgBE ORsI43p2 OEE Sac TRBSuB RAR: tent” 
/SBTTL SET RESULT DESCRIPTOR ADDRESS 


+ 
FUNCTIONAL DESCRIPTION: 


THIS ROUTINE {5 CALLED TO SET THE ADDRESS OF A RESULT 
DESCRIPTOR INTO R4. 


CALLING SEQUENCE: 

BSB/JSB DCLSSETDESCADR 
INPUT PARAMETERS: 

RS CONTAINS THE INDEX FOR THE DESIRED DESCRIPTOR 
IMPLICIT INPUTS: 


R10 = ADDRESS OF WORK BLOCK 
R11 = ADDRESS OF PASS 1 PARSE WORK AREA 


OUTPUT PARAMETERS: 
R4 IS LOADED WITH THE ADDRESS OF THE DESCRIPTOR 


CLSSETDESCADR: : 
MULL #PTR_C_LENGTH,R5S,R4 : GET BYTE OFFSET OF DES 
MOVAB WRK_G_RESULT-PTR_C_LENGTH(R11)(R4J,R4 : GET ADDRESS OF DESCRIP 
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5 «SBTTL GET PARAMETER 
FUNCTIONAL DESCRIPTION: 


THIS oy is cutee PER: cance Me RESULT DESCRIPTOR 
BUFFER FOR TH OCCUR PRARMETER 


CALLING SEQUENCE: 

BSB/JSB DCLSGETPARM ; GET A PARAMETER 
INPUT PARAMETERS: 

RS CONTAINS THE INDEX OF NEXT DESCRIPTOR TO CHECK 
IMPLICIT INPUTS: 


Re = ADDRESS OF UTILITY BIT 
= ADDRESS OF REQUEST DESCRIPTOR 
R10 = ADDRESS OF WORK BLOCK 
R11 = ADDRESS OF PASS 1 PARSE WORK AREA 
OUTPUT PARAMETERS: 
Ri CONTAINS THE TYPE OF THE sty tel bd tld K_PARAMETR) 
Fontaine he. SIZE OF THE PARAMETER 
E PRECEEDING TER MINAT OR 
Ra CONTAINS THE ADDRESS OF THE PARAMETER DESCRIPTOR 
RS IS THE INDEX TO THE DESCRIPTOR 


COMPLETION CODES: 
RO = SUCCESS/FAIL DEPENDING ON THE RESULT OF THE SEARCH 


Page 19, 


CLSGETPARM: : : GET THE NEXT PARAMETER 
SETSTAT FAIL + ASSUME NO MORE PARAMETERS 

0$: INCL : ADVANCE INDEX 
BSBB DCLSGETEXTDESC : GET DESCRIPTOR AND EXTRACT FIELDS 
EXTZV #eTR uh TERM, APTR_S_TERM,- ; GET THE TERMINATOR FORM THE PRVIOUS 

“PTR-C“LENGTH(R4),R3  ; DESCRIPTOR AND SAVE IN R3 
CMPBsaR}'1, #PTR_K_ENDLINE : IS THIS THE END ms LINE? 
BEQL : NO MORE PAR AMETER 
CRPS R1 ,#PTR_K_PARAMETR : is THE CURE RENT A SARAMETER? 
4 SETSTAT SUCCESS : SET FOUND 
30$: RSB t RETURN TO CALLER 
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¥02 800 RESULT PARSE INIT pats Ta eS Me reas fT ve 8) 
4s : .SBTTL RESULT PARSE INIT 
af ; FUNCTIONAL DESCRIPTION: 
; THIS ROUTINE IS CALLED TO ESTABL ISH INITIAL CONDITIONS 
; IN THE RESULT PARSE WORK AREA PRIOR TO PER FORMAING 
; A RESULT PARSE. 
? CALLING SEQUENCE: 
¢ ; ENTERED VIA A CASE FOLLOWED BY A CALL 
: ; IMPLICIT INPUTS: 
§ : RO = ADDRESS OF REQUEST DESCRIPTOR 
60 : R10 = ADDRESS OF WORK BLOCK 
6 ; R11 = ADDRESS OF PASS 1 PARSE WORK AREA 
es } OUTPUT PARAMETERS: 
65 : THE RESULT PARSE WORK AREA IS INITED 
$ : COMPLETION CODES: 
: RO = SUCCESS 
re DCLSRPINIT:: ; RESULT APRSE INIT 
62 10 2 BSBB DCLSGETDCLURK : : GET POINTER TO DCL PHASE 1 WORK AREA 
00 6A 2c MOVCS : SOURCE BUFFER SIZE AND FILL OF 0 TO 
04 AA O07C BF 76 act isc uO OU OREAREA=6 4(R10)'; ZERO OUT TH K AREA 
04 AA 5B. DO 7 MOVL L DCLuRK (10) :"SAVE WORK AREA ADDRESS FOR LATER 
7 c6 AB ODO i: MOVL WRK’L_PROPTR(R11).R : GET ADDRESS OF COMMAND PROMPT TABLE 
56 40 AA DE «O08 MOVAL RPu- “§ ~PRALIACRIO) (RG : GET ADDRESS OF FIRST PARAM LIMIT TABLE 
55 D4 O0BD 0 CLRL : INIT INDEX TO MINUS FIRST DESCRIPTOR 
e 10 OOBF 1 BSBB Besson + RETREIVE THE NEXT(FIRST) PARAMETER 
08 AA 0C1 2 MOVB RPW_B STRPARM(R10) : SAVE THE INDEX TO THE FIRST PARAMETER 
DOC BLBC : BR IF NO PARAMETERS IN COMMAND 
01 A6 D0C 4 10S: nove F “PER B_FSTDESC(R6) : SET FIRST PARAMETER IN THIS LIST 
66 OCC 5 VB Rd PL Ln B “NXTDESC(R6) § : ALSO THE NEXT TO PROCESS 
10 O0CF g 208 BSBB oct PARM : LOCATE THE NEXT PARAMETER IN THE C 
0206 55. 01 83 0001 SUBB3 R att B_LSTDESC(R6) ; SET INDEX OF THE LAST PARAMETER SEEN” 
29 Q 3 0006 8 BLBC 3—E«RO; : BR IF NO MORE 
01 00D CMPB 4s R'3. #@PTR_K_BLANK : IS THIS THE START OF A PARMETER LIST? 
1 13 O0DC BEQL Ss : BR IF YES 
07 €0 00D 91 BBS #ENT_V_IMPCAT : IF COMMAND HAS IMPLIED CONCATONATION 
EC 04 A7 poe) 9 ENT @ TELAGS{RE) 208 : THEN KEEP LOOKING TILL END OF PARAMETER 
0S 33 91 O0E 9 CMPBsoR3, BPTR_K_COMMA > ELSE LOOK FOR PARAMETER LIST SEPARATOR 
1 DOES 94 BNEQ 6-20 : IF NO A SEPARATOR FONT INUE AN 
01 ; 91 O0E 95 40$ CHPB 0 sR'3, #@P TR_K_BLANK : SCAN FOR LAST PARAMETER IN THE LIST 
13 Q0EB Bea. 4=-«0$ : BR IF FOUND LAST PARAMETER 
dD 10 O0ED 39 BSBB.C«#O “ae > SEARCH FOR NEXT PARAMETER 
10 50 c DOEF 98 BLBC Oo : BR IF RAN OUT OF PARAMETERS 
F411 Dore BRB 40$ > CHECK FOR BLAN 
08 A? «C1. «(OOF 400 50$:  ADDL3 ENT_L_NEXT(R7),- : SKIP TO NEXT DESCRIPTOR 
57 DE AB 00F7 WRK"L"TAB_VEC(R11),R7 


"7 
° ROUTIN 16-SEP- :14: AX/VMS Macro V04- Page 1 
VOL~800 RESULT PARSE INIT. SCOROUTINES grsee SB SOi13:h8 YOA/ Ves Macre vO ed oe tf) 
FA RS ,PLMB_TRMDESC(R6) —; SAVE DESCRIPTOR OF PARAMETER TERMINA 
sl be p F t 5 weve ; PB TRME : POINT AT NEXT PARAMETER LIMIT DESCR IPTOR 
C i 404 BRB 16 : SCAN NEXT PARAMETER 
osm 5s gp MBE HBO BIST NCSEESS ramescensy | Serial Pebamazn 
be } 4 $ RET + RETURN TO DISPATCHER 
A 4 $ : SET WORK ADDRESS 
T WRK:: 3 
aggooogarer 16 Hibn Sig OCHSGFTOGRBPE'S crscen rac ssas.any £ SET ADDRESS OF CLL PROCESS wom ane 
bs 118 414 RSB . ; RETURN TO CALLER 
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CIRPSUB.MAR; 
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ro V04- 
SUB .MAR; 


RO WRT NOVEC BYTE 
RD WNOWRT NOVEC BYTE 


PSECT name Allocation PSECT No. Attributes 
00000000 ) 9 ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD WNOWRT NOVEC BYTE 
eet dada e ) PIC USR CON ABS ~ LCL NOSHR Be 
DCLSZCODE 0000011 27 NOPIC USR CON REL’ LCL NOSHR XE 
bocenmerecunaecnsoasameacaanad 
H Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization :00:00.11 :00. 
Command processing § :00: § :05. 
Pass é 00:09. ‘ 
Puss ¢ table sort ; :00: 1:3 : 2? 
Symbol table output 2 00:00. 
Psect synopsis output :00:00. . 
Cross-reference output :00:00. . 
Assembler run totals a 214 6 
rking set Limit was 1200 pages. 
Aseo8 bytes (89 9 pages) of virtual Sneao y were used % buffer the intermediate 


de. 

ai8"s were f pages of symbol table space ein to hold 815 non-local ane 18 local symbols. 
source lines were read in Pass 1, produ object records in Pass 2. 

34 pages of po Me memory were used to define 950 macros. 
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Macro Library name Macros defined 


“$255SDUA28:(SYSLIBISYSBLOMLB.MLB:1 2383838383=|SSttCSS 

BEA : :FOCL. 08430 HaeTH 
SYSLi8 ISTARLET ALB: 2 4 
TOTALS (a Meta t 12 


956 GETS were required to define 12 macros. 
There were no errors, warnings or information messages. 


MACRO/LIS=LIS$:RPSUB/0BJ=0BJ$:RPSUB MSRC$:RPSUB/UPDATE=(ENHS: RPSUB) +EXECMLS/LIB+L1B$:DCL/LIB+SYSSLIBRARY : SYSBLOMLB/LIB 
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